COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	Some squares to allow one to check aspect ratios of displays and printers.
C00006 ENDMK
C⊗;
Some squares to allow one to check aspect ratios of displays and printers.

\medskip
\newdimen\u  \u=1pt
\def\p(#1,#2)#3{\raise#2\u\rlap{\kern#1\u\special{#3}}}
\def\q(#1,#2)#3{\raise#2\u\rlap{\kern#1\u{#3}}}
\centerline{\hbox {%
	\p(10,10){point 1}%
	\q(10,10){20}% label it 20
	\p(-10,10){point 2}%
	\p(-10,-10){point 3}%
	\p(10,-10){point 4}%
	\special{join .241 1 2 3 4 1}% draw a 20 pt square
	\p(20,20){point 1}%
	\q(20,20){40}% label it 40
	\p(-20,20){point 2}%
	\p(-20,-20){point 3}%
	\p(20,-20){point 4}%
	\special{join .241 1 2 3 4 1}% draw a 40 pt square
	\p(30,30){point 1}%
	\q(30,30){60}% label it 60
	\p(-30,30){point 2}%
	\p(-30,-30){point 3}%
	\p(30,-30){point 4}%
	\special{join .241 1 2 3 4 1}% draw a 60 pt square
	\p(40,40){point 1}%
	\q(40,40){80}% label it 80
	\p(-40,40){point 2}%
	\p(-40,-40){point 3}%
	\p(40,-40){point 4}%
	\special{join .241 1 2 3 4 1}% draw a 80 pt square
	\p(50,50){point 1}%
	\q(50,50){1}% label it 1
	\p(-50,50){point 2}%
	\p(-50,-50){point 3}%
	\p(50,-50){point 4}%
	\special{join .964 1 2 3 4 1}% draw a 100 pt square
	\p(60,60){point 1}%
	\p(-60,60){point 2}%
	\p(-60,-60){point 3}%
	\p(60,-60){point 4}%
	\special{join .241 1 2 3 4 1}% draw a 120 pt square
	\p(70,70){point 1}%
	\p(-70,70){point 2}%
	\p(-70,-70){point 3}%
	\p(70,-70){point 4}%
	\special{join .241 1 2 3 4 1}% draw a 140 pt square
	\p(80,80){point 1}%
	\p(-80,80){point 2}%
	\p(-80,-80){point 3}%
	\p(80,-80){point 4}%
	\special{join .241 1 2 3 4 1}% draw a 160 pt square
	\p(90,90){point 1}%
	\p(-90,90){point 2}%
	\p(-90,-90){point 3}%
	\p(90,-90){point 4}%
	\special{join .241 1 2 3 4 1}% draw a 180 pt square
	\p(100,100){point 1}%
	\q(100,100){200}% label it 2
	\p(-100,100){point 2}%
	\p(-100,-100){point 3}%
	\p(100,-100){point 4}%
	\special{join .964 1 2 3 4 1}% draw a 200 pt square
	\p(150,150){point 1}%
	\q(150,150){300}% label it 3
	\p(-150,150){point 2}%
	\p(-150,-150){point 3}%
	\p(150,-150){point 4}%
	\special{join .964 1 2 3 4 1}% draw a 300 pt square
	\p(200,200){point 1}%
	\q(200,200){400}% label it 4
	\p(-200,200){point 2}%
	\p(-200,-200){point 3}%
	\p(200,-200){point 4}%
	\special{join .964 1 2 3 4 1}% draw a 400 pt square
	\hfil}}
	\bye